#!perl

use strict;
use warnings;

use File::Path;

die "ERROR: format: compile.pl technology library." unless @ARGV==2;
my $technology = $ARGV[0];
my $lib = $ARGV[1];
my $techfile="C:\\Program Files\\Ciranova\\tech\\$technology\\santanaTech\\Santana.tech";
$ENV{'CNI_DISPLAY_DIR'} = "C:\\Program Files\\Ciranova\\tech\\$technology\\santanaDisplay";

my $command = "update";
$command = "create" unless -e $lib;

system(qq[cngenlib --$command --techfile "$techfile" pkg:${lib}_source $lib $lib/]);

open(INFILE, "${lib}_source/__init__.py") or die $!;
open(OUTFILE, ">${lib}.ldf") or die $!;
while (1) {
    my $line = <INFILE>;
    last unless $line;
    my ($cell) = $line =~ /lib\.definePcell\(([^,]+),/;

    if ($cell) {
        print OUTFILE "$lib $cell layout\n";
    }
}
    
close INFILE;
close OUTFILE;

system(qq[pyros --ldf=$lib.ldf]);
